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FORMATTED LISTING 

; #################################################################################################### 
; # PROJECT : Apple /// SOS Serial Printer Driver 1.30 (6502 Assembly Source Code) 
; # FILE NAME: SERPRINT . text 

; #################################################################################################### 



.TITLE 

.NOPATCHLIST 
.NOMACROLIST 



"SOS Serial Printer Driver" 



SOS Serial Printer Driver 

Copyright (C) 1983 by Apple Computer Inc. 
All Rights Reserved 



Revisions : 

1.00 14-NOV-80 

1.10 14-Apr-81 
Bug fixes: 

Switch to 1 MHz for all ACIA references. 

Check buffer count and delay count for write completion. 

1.30 05-Jan-83 
Bug fixes: 

Add XMIT flag for improved communications between Driver 
and Interrupt Handler . 



DEVTYPE 

SUBTYPE 

APPLE 

RELEASE 



.EQU 
.EQU 
.EQU 
.EQU 
.PAGE 



41 
01 

0001 
1300 



The macro SWITCH performs an N way branch based on a switch index. The 
maximum value of the switch index is 127 with bounds checking provided 
as an option. The macro uses the A and Y registers and alters the C, 
1, and N flags of the status register, but the X register is unchanged. 

SWITCH [index], [bounds], adrs_table, [*] 

index This is the variable that is to be used as the switch index. 
If omitted, the value in the accumulator is used. 

bounds This is the maximum allowable value for index. If index 

exceeds this value, the carry bit will be set and execution 
will continue following the macro. If bounds is omitted, 
no bounds checking will be performed. 

adrs_table This is a table of addresses (low byte first) used by the 
switch. The first entry corresponds to index zero. 

* If an asterisk is supplied as the fourth parameter, the 
macro will push the switch address but will not exit to 
it; execution will continue following the macro. The 
program may then load registers or set the status before 
exiting to the switch address . 



000062 


.MACRO 


SWITCH 


000063 


.IF 


"%1" <> 


000064 


LDA 


%1 


000065 


.ENDC 




000066 


. IF 


"%2" <> 


000067 


CMP 


#%2+l 


000068 


BCS 


$3579 


000069 


.ENDC 




000070 


ASL 


A 


000071 


TAY 




000072 


LDA 


%3+l, Y 


000073 


PHA 




000074 


LDA 


%3,Y 


000075 


PHA 




000076 


. IF 


"%4" <> 


000077 


RTS 




000078 


.ENDC 




000079 $3579 


.ENDM 




000080 


.PROC 


SERPRNT 


000081 


.WORD 


OFFFF 


000082 


.WORD 


66. 


000083 


.ASCII 


"Serial 


000084 


.ASCII 


"Copyric 



;If PARMl is present, 

; Load A with switch index 

If PARM2 is present. 

Perform bounds checking 
on switch index 



; Get switch address from table 
; and push onto stack 



If PARM4 is omitted. 

Exit to code 
Otherwise, drop through 
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000085 
000086 

000087 
000088 
000089 
000090 
000091 
000092 
000093 
000094 
000095 
000096 
000097 
000098 
000099 
000100 
000101 
000102 
000103 
000104 
000105 
000106 
000107 
000108 
000109 
000110 
000111 
000112 
000113 
000114 
000115 
000116 
000117 
000118 
000119 
000120 
000121 
000122 
000123 
000124 
000125 
000126 
000127 
000128 
000129 
000130 
000131 
000132 
000133 
000134 
000135 
000136 
000137 
000138 
000139 
000140 
000141 
000142 
000143 
000144 
000145 
000146 
000147 
000148 
000149 
000150 
000151 
000152 
000153 
000154 
000155 
000156 
000157 
000158 
000159 
000160 
000161 
000162 
000163 
000164 
000165 
000166 
000167 
000168 
000169 
000170 
000171 
000172 
000173 
000174 
000175 
000176 
000177 



Device Handler Identification Block 




.WORD 


0000 


.WORD 


SP MAIN 


.BYTE 


8 


.ASCII 


" . PRINTER 


.BYTE 


80, 00,00 


.BYTE 


DEVTYPE 


.BYTE 


SUBTYPE 


.BYTE 


00 


.WORD 


0000 


.WORD 


APPLE 


.WORD 


RELEASE 



;Link to next device handler 
; Entry point address 
; Length of device name 

; Device, Slot & Unit numbers 



Device Handler Configuration Block 



ORATE 

DFORMAT 

CRDELAY 

LFDELAY 

FFDELAY 



.WORD 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.BYTE 
.PAGE 



22 
00 
00 
00 



SOS Global Data s Subroutines 



; Configuration block length 

;Data Rate 

;Data Format 

; Carriage return delay 

;Line feed delay 

;Form feed delay 



ALLOCSIR .EQU 1913 

DEALCSIR .EQU 1916 

SYSERR .EQU 1928 



SOS Error Codes 



XREQCODE 


.EQU 


20 


; Invalid request code 


XCTLCODE 


.EQU 


21 


; Invalid control/status code 


XNOTOPEN 


.EQU 


23 


; Device not open 


XNOTAVIL 


.EQU 


24 


; Device not available 


XNORESRC 


.EQU 


25 


; Resource not available 


XBADOP 


.EQU 


26 


; Invalid operation for device 


; Hardware 


I/O Addresses 






AC I AD ATA 


.EQU 


OCOFO 


;ACIA data register 


ACIASTAT 


.EQU 


OCOFl 


;ACIA status register 


ACIACb4D 


.EQU 


0C0F2 


;ACIA command register 


ACIACTL 


.EQU 


0C0F3 


;ACIA control register 


E_REG 


.EQU 


OFFDF 


; Environment register 


B_REG 


.EQU 


OFFEF 


;Bank register 


; Miscellaneous Equates 


TRUE 


.EQU 


80 




FALSE 


.EQU 


00 




ASC_LF 


.EQU 


OA 




ASC_FF 


.EQU 


OC 




ASC_CR 


.EQU 


OD 




BIT0N4 


.EQU 


10 




BIT0N7 


.EQU 


80 






.PAGE 






; SOS Device Handler Interface 


SOSINT 


.EQU 


OCO 
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000178 


REQCODE 


.EQU 


SOSINT+0 


; SOS request code 


000179 


BUFFER 


.EQU 


SOSINT+2 


; Buffer pointer 


000180 


REQCNT 


.EQU 


SOSINT+4 


; Requested count 


000181 


CTLSTAT 


.EQU 


SOSINT+2 


; Control/status code 


000182 


CSLIST 


.EQU 


SOSINT+3 


; Control/status list pointer 


000183 












000184 












000185 






















000186 












000187 




Zero Page Storage 






000188 












000189 






















000190 












000191 


ZPGSAVE 


.EQU 


SOSINT+OA 


; Saved zero page storage 


000192 












000193 


ZPGTEMP 


.EQU 


ZPGSAVE+00 


; Temporary zero page storage 


000194 


MOVCNT 


.EQU 


ZPGTEMP+QO 




000195 












000195 












000197 






















000198 












000199 




Private Variable Storage 




000200 












000201 






















000202 












000203 


SIRADDR 


.WORD 


SIRTABLE 




000204 


S TRIABLE 


.BYTE 


1, 


;ACIA resource 


000205 






.WORD 


ACIAMIH 




000206 


MIHBANK 


.BYTE 







000207 


SIRCOUNT 


.EQU 


*-SIRTABLE 




000208 


OPENFLG 


.BYTE 


FALSE 


; Device open flag 


000209 


XMIT 


.BYTE 


FALSE 


;XMIT in progress flag 


000210 


DLYCNT 


.BYTE 





; Delay count for MIH 


000211 


BUFCNT 


.BYTE 





; Local buffer byte count 


000212 


BUFHEAD 


.BYTE 





; Local buffer head index 


000213 


BUFTAIL 


.BYTE 





; Local buffer tail index 


000214 


BUFSIZE 


.EQU 


110. 


; Local buffer size 


000215 


LOCBUF 


.EQU 


* 


; Local buffer 


000216 






.ASCII 


"Copyright (C) 1983 by Apple Computer Inc." 


000217 


CPYRGHTSIZ 


.EQU 


* -LOCBUF 




000218 






.BLOCK 


BUFSIZE-CPYRGHTSIZ, 




000219 






.PAGE 






000220 






















000221 












000222 




Serial 


Printer Driver — 


Main entry point 




000223 












000224 






















000225 












000226 


SP_MAIN 


.EQU 


* 




000227 






SWITCH 


REQCODE, 8, SP_REQSW 




000228 












000229 












000230 


BADREQ 


LDA 


#XREQCODE 


; Invalid request code 


000231 






JSR 


SYSERR 




000232 












000233 












000234 


NOTOPEN 


LDA 


#XNOTOPEN 


; Device not open 


000235 






JSR 


SYSERR 




000236 












000237 












000238 


SP_REQSW 


-EQU 




; Serial Printer request switch 


000239 






.WORD 


SP_READ-1 




000240 






.WORD 


SP_WRITE-1 




000241 






.WORD 


SP_STAT-1 




000242 






.WORD 


SP_CNTL-1 




000243 






.WORD 


BADREQ-1 




000244 






.WORD 


BADREQ-1 




000245 






.WORD 


SP_0PEN-1 




000246 






.WORD 


SP_CL0SE-1 




000247 






.WORD 


SP_INIT-1 




000248 






.PAGE 






000249 






















000250 












000251 




Serial 


Printer Driver — 


Initialization Request 




000252 












000253 






















000254 












000255 


SP_INIT 


.EQU 






000256 






LDA 


#FALSE 




000257 






STA 


OPENFLG 




000258 






LDA 


DRATE 


; Validate data rate 


000259 






AND 


#00F 




000260 






STA 


DRATE 




000261 






TAX 






000262 






LDA 


DFORMAT 


; Validate data format 


000263 






AND 


#OEE 




000264 






ORA 


#010 




000265 






CPX 


#03 


;If data rate is 110 baud 


000266 






BNE 


$010 




000267 






ORA 


#080 


; force two stop bits 


000268 


$010 


STA 


DFORMAT 




000269 






CLC 






000270 






RTS 
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000271 .PAGE 

000272 ; 

000273 ; 



000274 


Serial 


Printer Driver 


— Open Rec[uest 




000275 










000276 


















000277 










000278 SP_OPEN 


. EQU 






000279 




rdt" 


L/Jr ILiLMr Li\j 


f SsiriQ.! Pirinteir openT 


000280 






$010 


; No 


000281 










000282 




JSR 






000283 










000284 $010 


LDA 


B REG 




000285 






ff Ur 




000286 




STA 


^^ T LI "D 7\ 'KIV 


; Set interrupt handler bank 


000287 






■W- c T D r'rir twt 
ff blKL-UUJN 1 




000288 




r'nv 


oXKAJJUK 




000289 




Tnv 






000290 




JdK 


ATT i^r" C T D 


; A±xocaTi.e tne ai^xa 


000291 




BCS 


$020 




000292 










000293 










000294 










000295 




JSR 


("■TiTTT n n 
i^JN i J_iU U 


; Set up ACIA 


000296 






^TRUE 




000297 








; Set serial printer open 


000298 










000299 










000300 $020 


LDA 






000301 




JSR 


C VCT7DD 

o 1 oiljKK 




000302 




.PAGE 






000303 


















000304 










000305 


Serial 


Printer Driver 


— Close Request 




000306 










000307 


















000308 










000309 SP_CLOSE 


. EQU 


* 




000310 








; SsiriB-l Printer open? 


000311 




BCS 


$010 


; Yes 


000312 




JMP 


LNUi UFhilN 




000313 










000314 $010 




XMIT 


} Wait for write completion 


000315 




RMT 


$010 




000316 










000317 




QTTT 






000318 




liUA 


iij_KhjG 




000319 




TAX 






000320 






JfRTTHKn 

13 J. X ULN / 




000321 










000322 




blA 


A r'T A CTA T" 


; Keser. tne ai^ia 


000323 






E_REG 




000324 




DT D 






000325 




T na 


■H- C T D (~"riT ThTT 




000326 




Tnv 


oXKAUUK 




000327 




T nv 


QTT37irinT5-Ul 
OXr\AUUx\T± 




000328 








/ Deallocate the ACIA 


000329 




DTC 






000330 










000331 


















000332 










000333 


Serial 


Printer Driver 


— Re3.ci Rec[uest 




000334 










000335 


















000336 










000337 SP_READ 


. EQU 






000338 






i^DTTiTTT r' 

Uir JIjJNe Jjlji 


; Serial Printer open? 


000339 




RMT 


$010 




000340 










000341 $010 


Tna 


4 via APiriD 




000342 






q VQTTDD 




000343 




.PAGE 






000344 


















000345 










000346 


Serial 


PiTintsiT Dirivsir 


— Wirite Recjuest 




000347 










000348 


















000349 










000350 SP_WRITE 


.EQU 






000351 




BIT 


OPENFLG 




000352 




BMI 


$010 




000353 




JMP 


NOTOPEN 




000354 $010 


LDA 


#BUFSIZE/2 


;Set MOVCNT to the lesser 


000355 




LDY 


REQCNT+1 


; of BUFSIZE/2 and REQCNT. 


000356 




BNE 


$020 




000357 




CMP 


REQCNT 




000358 




BCC 


$020 




000359 




LDA 


REQCNT 




000360 




BNE 


$020 




000361 




RTS 




; Count = zero — all done! 


000362 $020 


STA 


MOVCNT 





000363 
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000364 




LDA 


BUFFER+1 


; Check for buffer 


000365 




CMP 


#OFF 


; address overflow 


000366 




BCC 


$030 




000367 




SBC 


#080 




000368 




STA 


BUFFER+1 




000369 




INC 


1401+BUFFER 




000370 










000371 


$030 


SEC 






000372 




LDA 


#BUFSIZE 




000373 




SBC 


MOVCNT 




000374 


$040 


CMP 


BUFCNT 


;Wait for room in buffer 


000375 




BCC 


$040 




000376 










000377 




LDY 


#0 




000378 




LDX 


BUFTAIL 




000379 


$050 


LDA 


(BUFFER) , Y 


;Move data to local buffer 


000380 




STA 


LOCBUF,X 




000381 




INX 






000382 




CPX 


#BUFSIZE 




000383 




BCC 


$060 




000384 




LDX 


#0 




000385 


$060 


INY 






000386 




CPY 


MOVCNT 




000387 




BCC 


$050 




000388 




STX 


BUFTAIL 




000389 










000390 




PHP 






000391 




SEI 




; Shut down interrupts 


000392 




CLC 






000393 




LDA 


BUFCNT 




000394 




ADC 


MOVCNT 


;Bump buffer count 


000395 




STA 


BUFCNT 




000395 










000397 




BIT 


XMIT 


; Already transmitting? 


000398 




BVS 


$070 


; Yes 


000399 




LDA 


#0C0 




000400 




STA 


XMIT 


; Set transmitting flag 


000401 




LDA 


E_REG 




000402 




PHA 






000403 




ORA 


#BIT0N7 


; Switch to 1 MHz 


000404 




STA 


E_REG 




000405 




LDY 


ACIASTAT 


;Fake an interrupt to start 


000406 




JSR 


ACIAMIH 


; the interrupt handler . 


000407 




PLA 






000408 




STA 


E_REG 


; Switch back to 2 MHz 


000409 


$070 


PLP 






000410 










000411 




CLC 






000412 




LDA 


BUFFER 




000413 




ADC 


MOVCNT 


;Fix up buffer pointer 


000414 




STA 


BUFFER 




000415 




BCC 


$080 




000416 




INC 


BUFFER+1 




000417 










000418 


$080 


SEC 






000419 




LDA 


REQCNT 




000420 




SBC 


MOVCNT 


;Fix up requested count 


000421 




STA 


REQCNT 




000422 




BCS 


$010 




000423 




DEC 


REQCNT+1 




000424 




JMP 


$010 


; Loop back for more 


000425 




.PAGE 






000426 


















000427 










000428 


; ACIA Master 


Interrupt 


Handler 




000429 


; 








000430 










/ 








000431 










000432 


ACIAMIH 


.EQU 


* 




000433 




LDA 


E_REG 




000434 




ORA 


#BIT0N7 


;Set 1 MHz mode 


000435 




STA 


E_REG 




000436 










000437 




TYA 




; Check DSR and DCD status 


000438 




AND 


#60 


; bits for printer hand shake 


000439 




BNE 


$080 




000440 










000441 




TYA 




; Check transmit register 


000442 




AND 


#BIT0N4 


; empty status bit 


000443 




BEQ 


$060 




000444 










000445 




LDA 


DLYCNT 


;Any transmit delay in progress? 


000446 




BEQ 


$010 


; no 


000447 




DEC 


DLYCNT 




000448 




JMP 


$060 




000449 










000450 


$010 


LDA 


BUFCNT 


;Any data to transmit? 


000451 




BEQ 


$070 


; no — wait for completion 


000452 




LDX 


BUFHEAD 




000453 




LDA 


LOCBUF,X 




000454 




STA 


ACIADATA 


; Transmit one character 


000455 




INX 






000456 




CPX 


#BUFSIZE 
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000457 
000458 

000459 
000460 
000461 
000462 
000463 
000464 
000465 
000466 
000467 
000468 
000469 
000470 
000471 
000472 
000473 
000474 
000475 
000476 
000477 
000478 
000479 
000480 
000481 
000482 
000483 
000484 
000485 
000486 
000487 
000488 
000489 
000490 
000491 
000492 
000493 
000494 
000495 
000496 
000497 
000498 
000499 
000500 
000501 
000502 
000503 
000504 
000505 
000505 
000507 
000508 
000509 
000510 
000511 
000512 
000513 
000514 
000515 
000516 
000517 
000518 
000519 
000520 
000521 
000522 
000523 
000524 
000525 
000526 
000527 
000528 
000529 
000530 
000531 
000532 
000533 
000534 
000535 
000536 
000537 
000538 
000539 
000540 
000541 
000542 
000543 
000544 
000545 
000546 
000547 
000548 
000549 



$020 



$030 



$040 
$050 



$060 



$070 
$080 



BCC 
LDX 
SIX 
DEC 

CMP 

BEQ 

BCS 

CMP 

BNE 

LDA 

BCS 

CMP 

BNE 

LDA 

BCS 

LDA 

STA 

.PAGE 

LDA 

AND 

ORA 

STA 

RTS 

ASL 
BMI 

LDA 
AND 
ORA 
STA 
RTS 
.PAGE 



$020 
#0 

BUFHEAD 
BUFCNT 

#ASC_CR 

$040 

$060 

#ASC_LF 

$030 

LFDELAY 

$050 

#ASC_FF 

$060 

FFDELAY 

$050 

CRDELAY 

DLYCNT 

ACIACMD 

#0E0 
#007 
ACIACMD 



XMIT 
$060 

ACIACMD 
#0E0 
#00B 
ACIACMD 



; Update buffer index 
; and count 

; Check for any delay 



; Enable transmit interrupt 



; Still not done 



; Disable transmit interrupt 



Serial Printer Driver 



Status Request 



$010 



STATOO 
STATOl 



.EQU 

BIT 
BMI 
JMP 

SWITCH 



LDA 
JSR 



.WORD 
.WORD 
.WORD 



LDY 
LDA 
STA 
RTS 



LDY 
LDA 
STA 
RTS 
.PAGE 



OPENFLG 

$010 

NOTOPEN 

CTLSTAT,2,STATSW 



tXCTLCODE 
SYSERR 



; Serial Printer open? 



; Invalid control code 



STATOO-1 
STATOl-1 
STAT02-1 



#0 
#0 

(CSLIST) , Y 



#0 

#FALSE 
(CSLIST) , Y 



;0 — NOP 

;1 ~ Status Table 



: 2 — New Line 



Serial Printer Driver 



Control Request 



$010 



CNTLOO 
$010 



.EQU 

BIT 
BMI 
JMP 

SWITCH 
JMP 

.WORD 
.WORD 
.WORD 

.EQU 

BIT 

BMI 

LDA 

STA 

STA 



OPENFLG 
$010 

NOTOPEN 

CTLSTAT, 2,CNTLSW 

BADCTL 

CNTL00~1 
CNTLOl-1 
CNTL02-1 



XMIT 
$010 
#00 

BUFHEAD 
BUFTAIL 



; Serial Printer open? 
; Ok 



; — Reset 

;Wait for write completion 
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000550 


PHP 






000551 


SEI 






000552 


LDA 


E_REG 




000553 


TAX 






000554 


ORA 


#BIT0N7 




000555 


STA 


E_REG 


; Switch to 1 MHz 


000556 


STA 


ACIASTAT 


; Reset ACTA 


000557 


LDA 


DFORMAT 




000558 


AND 


#OF0 




000559 


ORA 


DRATE 




000560 


STA 


ACIACTL 


; Set up ACTA control register 


000561 


LDA 


DFORMAT 




000562 


ASL 


A 




000563 


ASL 


A 




000564 


ASL 


A 




000565 


ASL 


A 




000566 


ORA 


#00B 




000567 


STA 


ACIACMD 


; Set up ACIA command register 


000568 


STX 


E_REG 


; Switch back to 2 MHz 


000569 


PLP 






000570 


RTS 






000571 








000572 CNTLOl 


.EQU 


* 


;1 — Serial Printer Status Table 


000573 


RTS 






000574 








000575 CNTL02 


.EQU 


* 


; 2 — New Line 


000576 


RTS 






000577 


.END 






000578 









#################################################################################################### 

# END OF FILE: SERPRINT.text 

# LINES : 578 

# CHARACTERS : 26582 

# Formatter : Assembly Language Reformatter 1.0.2 (07 January 1998) 

# Author : David T. Craig — 71533.606@compuserve.com — Santa Fe, New Mexico USA 
#################################################################################################### 



### 
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